# This example is quite silly, using the iris
# data. But it shows that our wrapper to Lumley's biglm() function produces
# the same answer as the plain old lm() function.
x <- matrix(unlist(iris), ncol=5)
colnames(x) <- names(iris)
x <- as.big.matrix(x)
head(x)
silly.biglm <- biglm.big.matrix(Sepal.Length ~ Sepal.Width + Species, data=x, fc="Species")
summary(silly.biglm)
y <- data.frame(x[,])
y$Species <- as.factor(y$Species)
head(y)
silly.lm <- lm(Sepal.Length ~ Sepal.Width + Species, data=y)
summary(silly.lm)
Run the code above in your browser using DataLab